home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 1995 Winter / Mac Expert - Winter 95.iso / Les fichiers / Mise à jour / FreeHand 4.0a_IE Updater ƒ / Aldus FreeHand 4.0a IE Updater / Aldus FreeHand 4.0a IE Updater.rsrc / ZAP_14368 < prev    next >
Text File  |  1994-09-08  |  630b  |  30 lines
  1. save
  2. /demotextsize 14 def
  3. /demoheight demotextsize 8 add def
  4. /demoinset 72 def
  5. /demotext (^o) def
  6. /dodemotext {
  7.  gsave
  8.  /Times-Italic findfont demotextsize scalefont setfont
  9.  1 setgray
  10.  left bottom width height rectfill 
  11.  0 setgray     
  12.  left demoinset add bottom demoheight demotextsize sub 2 div add moveto
  13.  width demoinset 2 mul sub
  14.  demotext stringwidth pop sub
  15.  demotext length div
  16.  0 demotext ashow
  17.  grestore
  18. } bdf
  19. clpr storerect 
  20. /height demoheight def
  21. /top top 36 sub def
  22. /bottom top height sub def
  23. dodemotext
  24. clpr storerect 
  25. /height demoheight def
  26. /bottom bottom 36 add def
  27. /top bottom height add def
  28. dodemotext
  29. restore